home *** CD-ROM | disk | FTP | other *** search
/ Cream of the Crop 1 / Cream of the Crop 1.iso / PROGRAM / BUTTEST.ARJ / CURSORS.PAS < prev    next >
Pascal/Delphi Source File  |  1992-01-31  |  7KB  |  161 lines
  1. Unit Cursors;
  2.  
  3. {This unit contains the definitions of several different cursors     }
  4. {for use with the MOUSE.TPU unit.  This unit is found in the book    }
  5. {OBJECT ORIENTED PROGRAMMING IN TURBO PASCAL 5.5                     }
  6. {The Graphic Cursors are passed as shown below and can be created    }
  7. {using the program MOUSEPTR.EXE, compiled from MOUSEPTR.PAS also     }
  8. {found in the bood OOP IN TP 5.5.                                    }
  9.  
  10. Interface
  11.  
  12. {This unit exports a Type GCursor which defines the record holding   }
  13. {a graphics cursor, and the graphics cursors themselves              }
  14.  
  15. Type
  16.     GCursor = record
  17.             ScreenMask,
  18.             CursorMask : array[0..15] of word;
  19.             hotX,hotY  : integer;
  20.             end; {record}
  21.  
  22.  
  23.                   {================================}
  24.                   {Graphics Cursors are predefined }
  25.                   {for use with GraphicMouse       }
  26.                   {================================}
  27.  
  28.  
  29. Const           {The graphics cursors are defined as constants       }
  30.  
  31.      HAMMER : GCursor =       {As in the hammer of THOR, my favorite}
  32.             (ScreenMask : ($8003,$0001,$0001,$1831,
  33.                            $1011,$0001,$0001,$8003,
  34.                            $F83F,$F83F,$F83F,$F83F,
  35.                            $F83F,$F83F,$F83F,$F83F);
  36.              CursorMask : ($0000,$3FF8,$4284,$4104,
  37.                            $4284,$4444,$3FF8,$0380,
  38.                            $0380,$0380,$0380,$0380,
  39.                            $0380,$0380,$0380,$0000);
  40.              HotX : $0007;
  41.              HotY : $0003);
  42.  
  43.      ARROW : GCursor =       {Your run-of-the-mill Graphics Arrow cursor}
  44.            (ScreenMask : ($1FFF,$0FFF,$07FF,$03FF,
  45.                           $01FF,$00FF,$007F,$003F,
  46.                           $001F,$003F,$01FF,$01FF,
  47.                           $E0FF,$F0FF,$F8FF,$F8FF);
  48.             CursorMask : ($0000,$4000,$6000,$7000,
  49.                           $7800,$7C00,$7E00,$7F00,
  50.                           $7F80,$7C00,$4C00,$0600,
  51.                           $0600,$0300,$0400,$0000);
  52.             HotX : $0001;
  53.             HotY : $0001);
  54.  
  55.      CHECK : GCursor =       {A check-mark cursor}
  56.            (ScreenMask : ($FFF0,$FFE0,$FFC0,$FF81,
  57.                           $FF03,$0607,$000F,$001F,
  58.                           $803F,$C07F,$E0FF,$F1FF,
  59.                           $FFFF,$FFFF,$FFFF,$FFFF);
  60.             CursorMask : ($0000,$0006,$000C,$0018,
  61.                           $0030,$0060,$70C0,$3980,
  62.                           $1F00,$0E00,$0400,$0000,
  63.                           $0000,$0000,$0000,$0000);
  64.             HotX : $0005;
  65.             HotY : $0010);
  66.  
  67.      CROSS : GCursor =       {A circle with center cross cursor}
  68.            (ScreenMask : ($F01F,$E00F,$C007,$8003,
  69.                           $0441,$0C61,$0381,$0381,
  70.                           $0381,$0C61,$0441,$8003,
  71.                           $C007,$E00F,$F01F,$FFFF);
  72.             CursorMask : ($0000,$07C0,$0920,$1110,
  73.                           $2108,$4004,$4004,$783C,
  74.                           $4004,$4004,$2108,$1110,
  75.                           $0920,$07C0,$0000,$0000);
  76.             HotX : $0007;
  77.             HotY : $0007);
  78.  
  79.      GLOVE : GCursor =       {The hand with pointing finger cursor}
  80.            (ScreenMask : ($F3FF,$E1FF,$E1FF,$E1FF,
  81.                           $E1FF,$E049,$E000,$8000,
  82.                           $0000,$0000,$07FC,$07F8,
  83.                           $9FF9,$8FF1,$C003,$E007);
  84.             CursorMask : ($0C00,$1200,$1200,$1200,
  85.                           $1200,$13B6,$1249,$7249,
  86.                           $9249,$9001,$9001,$8001,
  87.                           $4002,$4002,$2004,$1FF8);
  88.             HotX : $0004;
  89.             HotY : $0000);
  90.  
  91.      IBEAM : GCursor =       {Your normal text entering I shaped cursor}
  92.            (ScreenMask : ($F3FF,$E1FF,$E1FF,$E1FF,
  93.                           $E1FF,$E049,$E000,$8000,
  94.                           $0000,$0000,$07FC,$07F8,
  95.                           $9FF9,$8FF1,$C003,$E007);
  96.             CursorMask : ($0C30,$0240,$0180,$0180,
  97.                           $0180,$0180,$0180,$0180,
  98.                           $0180,$0180,$0180,$0180,
  99.                           $0180,$0180,$0240,$0C30);
  100.             HotX : $0007;
  101.             HotY : $0007);
  102.  
  103.       KKG : GCursor =     {KKG symbol, a little sorority stuff}
  104.         (ScreenMask : ($FFFF,$1040,$1040,$0000,
  105.                        $0000,$0000,$0411,$0411,
  106.                        $0001,$0001,$0001,$1041,
  107.                        $1041,$1041,$FFFF,$FFFF );
  108.          CursorMask : ($0000,$0000,$4517,$4515,
  109.                        $4925,$5144,$6184,$6184,
  110.                        $5144,$4924,$4514,$4514,
  111.                        $4514,$0000,$0000,$0000 );
  112.          HotX : $0007;
  113.          HotY : $0005);
  114.  
  115.       SMILEY : GCursor =  {a Smiley face for you!}
  116.         (ScreenMask : ($C003,$8001,$07E0,$0000,
  117.                        $0000,$0000,$0000,$0000,
  118.                        $0000,$0000,$0000,$8001,
  119.                        $C003,$C003,$E007,$F81F );
  120.          CursorMask : ($0FF0,$1008,$2004,$4002,
  121.                        $4E72,$4A52,$4E72,$4002,
  122.                        $4992,$581A,$2424,$13C8,
  123.                        $1008,$0C30,$03C0,$0000 );
  124.          HotX : $0007;
  125.          HotY : $0005);
  126.  
  127.       XOUT : GCursor =    {a BIG X marks the spot}
  128.         (ScreenMask : ($1FF8,$0FF0,$07E0,$03C0,
  129.                        $8181,$C003,$E007,$F00F,
  130.                        $F81F,$F00F,$E007,$C003,
  131.                        $8181,$03C0,$07E0,$0FF0 );
  132.          CursorMask : ($8001,$C003,$6006,$300C,
  133.                        $1818,$0C30,$0660,$03C0,
  134.                        $0180,$03C0,$0660,$0C30,
  135.                        $1818,$300C,$6006,$C003 );
  136.          HotX : $0007;
  137.          HotY : $0008);
  138.  
  139.       SWORD : GCursor =   {For the D&D buffs...}
  140.         (ScreenMask : ($F83F,$F83F,$F83F,$F83F,
  141.                        $F83F,$F83F,$F83F,$F83F,
  142.                        $8003,$8003,$8003,$8003,
  143.                        $8003,$F83F,$F01F,$F01F );
  144.          CursorMask : ($0100,$0380,$0380,$0380,
  145.                        $0380,$0380,$0380,$0380,
  146.                        $0380,$3398,$3398,$3FF8,
  147.                        $0380,$0380,$0380,$07C0 );
  148.          HotX : $0007;
  149.          HotY : $0000);
  150.  
  151.  
  152. {*************************************************************************}
  153.  
  154. Implementation
  155.  
  156. {*************************************************************************}
  157.  
  158. BEGIN
  159. END.
  160.  
  161.